home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / config / dummy / runprocess.c < prev    next >
C/C++ Source or Header  |  1996-10-24  |  733b  |  32 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: runprocess.c,v 1.2 1996/08/01 17:41:00 digulla Exp $
  4.     $Log: runprocess.c,v $
  5.     Revision 1.2  1996/08/01 17:41:00  digulla
  6.     Added standard header for all files
  7.  
  8.     Desc:
  9.     Lang:
  10. */
  11. #include <exec/tasks.h>
  12. #include <clib/exec_protos.h>
  13. #include <dos/dosextens.h>
  14. #include "dos_intern.h"
  15.  
  16. LONG RunProcess(struct Process *proc, struct StackSwapStruct *sss,
  17. STRPTR argptr, ULONG argsize, LONG_FUNC entry)
  18. {
  19.     LONG ret;
  20.     APTR *sp;
  21.     extern struct DosLibrary *DOSBase;
  22.     sp=(APTR *)sss->stk_Upper;
  23.     *--sp=SysBase;
  24.     *--sp=(APTR)argsize;
  25.     *--sp=argptr;
  26.     sss->stk_Pointer=sp;
  27.     StackSwap(sss);
  28.     ret=entry();
  29.     StackSwap(sss);
  30.     return ret;
  31. }
  32.